#!/usr/bin/perl
use strict;

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);

print header."\n";
my %labels = {}
;
$labels{"ADUG"}="Hosur Rd @ Adugodi Jn";
$labels{"AGAR"}="Agara";
$labels{"APIL"}="Ashoka Pillar";
$labels{"ARPO"}="Bangalore Airport";
$labels{"ARPTRD"}="Airport Road @ Salarpuria Splendour";
$labels{"ARRI"}="Arrivals Gate, Airport road";
$labels{"BADH"}="Badami House";
$labels{"BASHCS"}="Bhashyam Circle, Sadashivnagar";
$labels{"BBJPN"}="Big Bazar @ JP Nagar";
$labels{"BBRD"}="B.B Road, Yelhanka";
$labels{"BCTL"}="Bangalore Central";
$labels{"BMTC"}="BTM Layout BMTC Complex";
$labels{"BNMGLA"}="Old Madras Road @ Binnamangala";
$labels{"BSKBDA"}="BSK 2nd Stage BDA Complex";
$labels{"BSKBN"}="Banashankari Bus Stop North Bound";
$labels{"BSKBS"}="Banashankari Bus Stop South Bound";
$labels{"BSPA"}="Basappa Circle";
$labels{"BTML"}="BTM layout main road";
$labels{"BVKI"}="BVK Iyngr Rd";
$labels{"CANB"}="Canara Bank";
$labels{"CASH"}="Residency Road/Cash Pharmacy";
$labels{"CAUV"}="Chowdiaiah Hall";
$labels{"CHMRJ"}="Chamarajpet Circle";
$labels{"CMHD"}="CMH-Double road";
$labels{"CMHD2"}="CMH-Double road";
$labels{"CMP"}="CMP Gate, Hosur Road";
$labels{"CONV"}="Convent Road";
$labels{"CORP"}="Corporation Circle";
$labels{"DBLR"}="KH double road";
$labels{"DDST"}="Diamond District";
$labels{"DELL2"}="DELL IRR2";
$labels{"DISP"}="Dispensary Road";
$labels{"DOMBS"}="Dommulur Bus stand";
$labels{"DOML"}="Airport Rd @ Domlur";
$labels{"DRMR"}="Double Rd & Mission Rd Jn";
$labels{"DVGR"}="D.V.G. road";
$labels{"DVGRD"}="DVG Road";
$labels{"DVYSHRI"}="Divya Shree towers";
$labels{"EAST"}="East End circle";
$labels{"EAST2"}="East End circle";
$labels{"EJPR"}="Ejipura";
$labels{"EMBSYICN"}="Embassy Icon";
$labels{"EMPR"}="Hotel empire";
$labels{"EMPR2"}="Hotel empire";
$labels{"GARE2"}="Garebavipalya";
$labels{"GBZR"}="Gandhi Bazar";
$labels{"HANU"}="Hanumantanagar";
$labels{"HIGND"}="High Ground Police station";
$labels{"HOOD"}="Hoodi Jn, Near Whitefield";
$labels{"HUNN"}="Domlur Junction North Bound";
$labels{"HUNN2"}="Domlur Junction South Bound";
$labels{"IIMB"}="Bannerghatta Rd near IIM";
$labels{"IND1"}="Indranagar 1st stage";
$labels{"INDR"}="Indiranagar 100ft road";
$labels{"INDRCCD"}="Indiranagr 100ft Rd @ Cafe Coffee Day";
$labels{"JAYW"}="Jayadeva Flyover West Bound";
$labels{"JCRD"}="JC road";
$labels{"JIGN"}="Jigani";
$labels{"JMRCL"}="Jai Muni Rao circle";
$labels{"JPN"}="JP nagar";
$labels{"JYFO"}="Jayanagar, 4th Block";
$labels{"JYFO2"}="Jayanagar, 4th Block";
$labels{"JYFO3"}="Jayanagar 4th Block";
$labels{"JYFO4"}="Jayanagar 4th Block";
$labels{"JYHOS"}="Jayadeva Hospital Flyover";
$labels{"JYN27CR"}="Jayanagar 27th cross";
$labels{"JYNI"}="Jayanagar 9th Block";
$labels{"JYSC"}="Jayanagar Shopping complex";
$labels{"JYSC2"}="Jayanagar Shopping complex";
$labels{"JYTH"}="Jaya nagar 3rd block Circle.";
$labels{"KADE"}="Kaderenahalli Cross East Bound";
$labels{"KADW"}="Kaderenahalli Cross West Bound";
$labels{"KALA2"}="Kalasipalyam";
$labels{"KANN"}="Kannada Bhavan";
$labels{"KCDAS"}="St Marks Road at KC Das";
$labels{"KFC"}="KFC";
$labels{"KHRD"}="KH Road, (Double road)";
$labels{"KILL"}="Killari road";
$labels{"kodhl"}="Kodihalli Airport road";
$labels{"KORA80FTRD"}="Koramangala 80ft road";
$labels{"KORABDA"}="Koramangala BDA Complex";
$labels{"KORAWATER"}="Kormangala 3rd Blk Watertank";
$labels{"KOSE"}="Koramangala 7th block";
$labels{"KRCL"}="K.R.Circle";
$labels{"KRMK"}="KR Market";
$labels{"KRMK2"}="KR Market";
$labels{"KRPR"}="K.R.Ruram";
$labels{"KRPR2"}="K.R.Ruram";
$labels{"KRRL"}="KR puram rly station";
$labels{"KRUM"}="Krumbigal Road";
$labels{"KRUPKORA"}="Krupanidhi Kormangala";
$labels{"KUMBHLE"}="Anil Kumble Circle";
$labels{"LAVE"}="Lavelle road";
$labels{"LIDO"}="Lido Mall";
$labels{"LKRD"}="Lake road";
$labels{"MADI"}="Madiwala";
$labels{"MAGD"}="Magadi Rd junction";
$labels{"MAGD2"}="Magadi Rd junction";
$labels{"MDPO"}="Madivala  Jn, Near Police Stn";
$labels{"MDPO2"}="Madivala  Jn, Near Police Stn";
$labels{"MDVPR"}="Mahadevpura";
$labels{"MFLY"}="Mysore road flyover";
$labels{"MGTD"}="Hotel Tandoor Junction, MG Rd";
$labels{"MGTD2"}="Hotel Tandoor Junction, MG Rd";
$labels{"MHLY"}="Ganesha Temple, Mahalakshmi Layout";
$labels{"MHOR"}="Marthahalli Rd & ORR Jn";
$labels{"MHOR2"}="Marthahalli Rd & ORR Jn";
$labels{"MINE"}="Minerva Circle";
$labels{"MINSK"}="Minsk Square, Infantry road";
$labels{"MLCL"}="Malleshwaram Circle";
$labels{"MLCL2"}="Malleshwaram Circle";
$labels{"MLEL"}="Malleshwaram 11th Cross";
$labels{"MLXLY"}="Mahalaxmi layout";
$labels{"MLYA"}="Mallya Junction";
$labels{"MNHP"}="Manipal Hospital East Bound";
$labels{"MNHPE"}="Manipal Hospital West Bound";
$labels{"MNPCTR"}="Manipal Centre";
$labels{"MNPLHSP"}="Manipal Hospital";
$labels{"MRAT"}="Marathahalli main road";
$labels{"MRAT2"}="Marathahalli main road";
$labels{"MTRTRSCL"}="Mother Theresa Circle";
$labels{"MTRTRSRD"}="Mother Theresa Road";
$labels{"MYRD"}="Mysore Road";
$labels{"NAVR"}="Navrang";
$labels{"NAVR2"}="Navrang";
$labels{"NGVRPLYA"}="Nagavarapalya";
$labels{"NOVL"}="Novell junction";
$labels{"NOVL2"}="Novell junction";
$labels{"NRCO"}="NR Colony";
$labels{"NTHA"}="New Tharugupet";
$labels{"OMSHTM"}="OM shakti temple";
$labels{"OPHR"}="OPH Road, Shivaji Nagar";
$labels{"POST"}="GPO";
$labels{"RAJK2"}="Dr.Rajkumar Road";
$labels{"RAJRD2"}="Rajkumar road";
$labels{"RCHR"}="Richmond Rd Jn";
$labels{"RCHR2"}="Richmond Rd Jn";
$labels{"RESD"}="Residency road";
$labels{"RESRD"}="Residency, Brigade Road Jn East Bound";
$labels{"RGVS"}="Ragavas Hospital";
$labels{"RICHCL"}="Richmond Circle";
$labels{"RICHFLY"}="Richmond flyover";
$labels{"RICHRD"}="Richmond road";
$labels{"RVRD2"}="RV Road";
$labels{"SAJJ"}="Sajjan Rao Circle";
$labels{"SAPLO"}="Sagar Apollo Hospital";
$labels{"SEND"}="South end Circle";
$labels{"SENR"}="South end road";
$labels{"SGMC"}="Sri Raghavendra Matt Circle";
$labels{"SGMC2"}="Sri Raghavendra Matt Circle";
$labels{"SGPLYA"}="SG pallya";
$labels{"SHIV"}="Shivajinagar Busstand";
$labels{"SHIV2"}="Shivajinagar Busstand";
$labels{"SHPSTP"}="Shoppers Stop";
$labels{"SIRS"}="Sirsi Circle";
$labels{"SIVA"}="Prof.Siva sankar Circle.";
$labels{"SJPR"}="Sarjapur Rd";
$labels{"SJPRE"}="Sarjapur Road East Bound";
$labels{"SKMT"}="Sankar Matt Circle";
$labels{"SLPRINF"}="Salarpuria Infinity";
$labels{"SPRD"}="SP Road";
$labels{"SRIN"}="Srinivasanagar";
$labels{"TILK"}="Tilak Nagar main rd";
$labels{"TMKR"}="Tumkur Rd @ Ypur Rly Stn";
$labels{"TRNCL"}="Trinity Circle";
$labels{"TRPO"}="Trinity Circle - police junction";
$labels{"UDPIW"}="Udupi Garden Jn West Bound";
$labels{"ULMK"}="Ulsoor market";
$labels{"ULPO"}="Ulsoor Police Stn";
$labels{"ULSR"}="Ulsoor Subramanya Temple";
$labels{"ULTK"}="Ulsoor Kensington Rd Assaye Rd Jn";
$labels{"URVSS"}="Urvashi Theater South Bound";
$labels{"VICTRD"}="Victoria road";
$labels{"VIGHSP"}="Vignan Hospital";
$labels{"VJYN"}="Vijayanagar busstand.";
$labels{"VSVI"}="Vasavi Temple";
$labels{"WFRL"}="White Field RW Station";
$labels{"WILG"}="Wilson Garden";
$labels{"WPRO"}="Wipro, Silk Board";
$labels{"K.R.Market"}="K.R.Market";
$labels{"Museum road"}="Museum road";
$labels{"HAVA"}="Havanuru Circle";
$labels{"KENG"}="Kengeri";
$labels{"ASRCL"}="Professor Asirvadam Circle";
$labels{"CMHO"}="CMH road";
$labels{"IREJ"}="Inner Ring road, EJ Pura";
$labels{"MARUTHI"}="Mandovi Motors Jn. Bannerghatta Road";
$labels{"MRBL"}="Marble Market, Bannergatta road";
$labels{"MRPHE"}="Murphy road Junction East Bound";
$labels{"BRGRD"}="Residency, Brigade Road Jn South Bound";
$labels{"DELL"}="DELL IRR";
$labels{"KALA"}="Kalasipalyam";
$labels{"KHBCLY"}="HIG KHB colony";
$labels{"MRPH"}="Murphy road Junction";
$labels{"UDPIE"}="Udupi Garden Jn East Bound";
print start_html('A Simple Example'),
    h1('A Simple Example'),
    start_form,
    "What's your cellphone no.? ",textfield('cellphone'),
    p,
    "Select the areas/junctions relevant to you",
	scrolling_list(-name=>'list_name',
                                -values=> ["ADUG","AGAR","APIL","ARPO","ARPTRD","ARRI","BADH","BASHCS","BBJPN","BBRD","BCTL","BMTC","BNMGLA","BSKBDA","BSKBN","BSKBS","BSPA","BTML","BVKI","CANB","CASH","CAUV","CHMRJ","CMHD","CMHD2","CMP","CONV","CORP","DBLR","DDST","DELL2","DISP","DOMBS","DOML","DRMR","DVGR","DVGRD","DVYSHRI","EAST","EAST2","EJPR","EMBSYICN","EMPR","EMPR2","GARE2","GBZR","HANU","HIGND","HOOD","HUNN","HUNN2","IIMB","IND1","INDR","INDRCCD","JAYW","JCRD","JIGN","JMRCL","JPN","JYFO","JYFO2","JYFO3","JYFO4","JYHOS","JYN27CR","JYNI","JYSC","JYSC2","JYTH","KADE","KADW","KALA2","KANN","KCDAS","KFC","KHRD","KILL","kodhl","KORA80FTRD","KORABDA","KORAWATER","KOSE","KRCL","KRMK","KRMK2","KRPR","KRPR2","KRRL","KRUM","KRUPKORA","KUMBHLE","LAVE","LIDO","LKRD","MADI","MAGD","MAGD2","MDPO","MDPO2","MDVPR","MFLY","MGTD","MGTD2","MHLY","MHOR","MHOR2","MINE","MINSK","MLCL","MLCL2","MLEL","MLXLY","MLYA","MNHP","MNHPE","MNPCTR","MNPLHSP","MRAT","MRAT2","MTRTRSCL","MTRTRSRD","MYRD","NAVR","NAVR2","NGVRPLYA","NOVL","NOVL2","NRCO","NTHA","OMSHTM","OPHR","POST","RAJK2","RAJRD2","RCHR","RCHR2","RESD","RESRD","RGVS","RICHCL","RICHFLY","RICHRD","RVRD2","SAJJ","SAPLO","SEND","SENR","SGMC","SGMC2","SGPLYA","SHIV","SHIV2","SHPSTP","SIRS","SIVA","SJPR","SJPRE","SKMT","SLPRINF","SPRD","SRIN","TILK","TMKR","TRNCL","TRPO","UDPIW","ULMK","ULPO","ULSR","ULTK","URVSS","VICTRD","VIGHSP","VJYN","VSVI","WFRL","WILG","WPRO","K.R.Market","Museum road","HAVA","KENG","ASRCL","CMHO","IREJ","MARUTHI","MRBL","MRPHE","BRGRD","DELL","KALA","KHBCLY","MRPH","UDPIE"],
	                        -size=>20,
	                        -multiple=>'true',
                                -labels=>\%labels);
    p,
    checkbox_group(-name=>'words',
		   -values=>['eenie','meenie','minie','moe'],
		   -defaults=>['eenie','minie']),
    p,
    "What's your favorite color? ",
    popup_menu(-name=>'color',
	       -values=>['red','green','blue','chartreuse']),
    p,
    submit,
    end_form,
    hr;

if (param()) {
 	my $areas = param('areas');
	my $start = param('start_time');
	my $end_time = param('end_time');
	my $interval = param('interval');
	my $days = param('days_of_week');
	for ( my $i = $start ; $i < $end_time; $i+=$interval ) {
	
	}
}
print end_html;
#if (param()) {

